home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWSERIAL.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
3KB
|
56 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWSERIAL **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : SERIAL **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWSERIAL;
INTERFACE
USES
netware, nwvar;
TYPE
pSerialOBJ = ^SerialOBJ;
SerialOBJ = object (NetwareOBJ)
constructor Init;
FUNCTION GetNetworkSerialNumber (VAR SerialNumber : LONGINT;
VAR ApplicationNumber : WORD) : WORD;
FUNCTION VerifyNetworkSerialNumber (SerialNumber : LONGINT;
VAR ApplicationNumber : WORD) : WORD;
destructor Done; virtual;
END;